home *** CD-ROM | disk | FTP | other *** search
/ Mixa 155: Dogs / MIXA 155: Dogs.iso / pc / Viewer / BROWSER(W) / フィルタ / PDF / LIB / gs_dps1.ps < prev    next >
Encoding:
Text File  |  2002-10-29  |  4.1 KB  |  132 lines
  1. %    Copyright (C) 1997, 1999 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile: gs_dps1.ps,v $ $Revision: 1.9 $
  7. % Initialization file for most of the Display PostScript functions
  8. % that are also included in Level 2.
  9.  
  10. level2dict begin
  11.  
  12. % ------ Virtual memory ------ %
  13.  
  14. /currentshared /.currentglobal load def
  15. /scheck /.gcheck load def
  16. %****** FOLLOWING IS WRONG ******
  17. /shareddict currentdict /globaldict .knownget not { 20 dict } if def
  18.  
  19. % Global and LocalFontDirectory must remain in systemdict
  20. % even if we temporarily exit Level 2 mode.
  21.  
  22. end                % level2dict
  23. systemdict begin
  24.  
  25. /SharedFontDirectory .FontDirectory .gcheck
  26.  { .currentglobal false .setglobal
  27.    /LocalFontDirectory .FontDirectory dup maxlength dict copy
  28.    .forcedef    % LocalFontDirectory is local, systemdict is global
  29.    .setglobal .FontDirectory
  30.  }
  31.  { /LocalFontDirectory .FontDirectory
  32.    .forcedef    % LocalFontDirectory is local, systemdict is global
  33.    50 dict
  34.  }
  35. ifelse def
  36.  
  37. end                % systemdict
  38. level2dict begin
  39.  
  40. % setshared must rebind FontDirectory to the appropriate one of
  41. % Local or SharedFontDirectory.
  42.  
  43. /.setglobal        % <bool> .setglobal -
  44.  { dup .setglobal
  45.    //systemdict /FontDirectory .currentglobal
  46.     { //SharedFontDirectory }
  47.     { /LocalFontDirectory .systemvar }    % can't embed ref to local VM
  48.    ifelse .forceput pop    % LocalFontDirectory is local, systemdict is global
  49.  } .bind odef        % must bind .forceput and .setglobal
  50.             % even if NOBIND in effect
  51. % Don't just copy (load) the definition of .setglobal:
  52. % it gets redefined for LL3.
  53. /setshared { /.setglobal .systemvar exec } odef
  54. .currentglobal setshared
  55.  
  56. % See below for changes in save and restore.
  57.  
  58. % ------ Fonts ------ %
  59.  
  60. /selectfont        % <fontname> <size> selectfont -
  61.  { 1 index findfont
  62.    1 index dup type /arraytype eq { makefont } { scalefont } ifelse
  63.    setfont pop pop
  64.  } odef
  65. % undefinefont has to take local/global VM into account.
  66. /undefinefont        % <fontname> undefinefont -
  67.  { .FontDirectory 1 index .undef
  68.    .currentglobal
  69.     {        % Current mode is global; delete from local directory too.
  70.       //systemdict /LocalFontDirectory .knownget
  71.        { 1 index .undef }
  72.       if
  73.     }
  74.     {        % Current mode is local; if there was a shadowed global
  75.         % definition, copy it into the local directory.
  76.       //systemdict /SharedFontDirectory .knownget
  77.        { 1 index .knownget
  78.       { .FontDirectory 2 index 3 -1 roll put }
  79.      if
  80.        }
  81.       if
  82.     }
  83.    ifelse pop
  84.  } odef
  85.  
  86. % If we load a font into global VM within an inner save, the restore
  87. % will delete it from FontDirectory but not from SharedFontDirectory.
  88. % We have to handle this by making restore copy missing entries from
  89. % SharedFontDirectory to FontDirectory.  Since this could slow down restore
  90. % considerably, we define a new operator .dictcopynew for this purpose.
  91. % Furthermore, if FAKEFONTS is in effect, we want global real fonts to
  92. % override fake local ones.  We handle this by brute force.
  93. /restore        % <save> restore -
  94.  { dup //restore    % bind even if NOBIND
  95.    /LocalFontDirectory .systemvar
  96.    FAKEFONTS
  97.     { mark
  98.         % We want to delete a fake font from the local directory
  99.         % iff the global directory now has no definition for it,
  100.         % or a non-fake definition.
  101.       1 index dup
  102.        {        % Stack: lfd mark lfd key ... lfd key value
  103.      length 1 gt
  104.       {        % This is a real local definition; don't do anything.
  105.         pop
  106.       }
  107.       {        % This is a fake local definition, check for global.
  108.         //SharedFontDirectory 1 index .knownget
  109.          {        % A global definition exists, check for fake.
  110.            length 1 eq { pop } { 1 index } ifelse
  111.          }
  112.          {        % No global definition, delete the local one.
  113.            1 index
  114.          }
  115.         ifelse
  116.       }
  117.      ifelse
  118.        } forall
  119.       pop counttomark 2 idiv { .undef } repeat pop
  120.     }
  121.    if
  122.    //SharedFontDirectory exch .dictcopynew pop
  123.    .currentglobal .setglobal    % Rebind FontDirectory according to current VM.
  124.    pop
  125.  } bind odef
  126.  
  127. % ------ Miscellaneous ------ %
  128.  
  129. /undef /.undef load def
  130.  
  131. end                % level2dict
  132.